home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / glammar / ge15.c < prev    next >
C/C++ Source or Header  |  1991-01-21  |  5KB  |  258 lines
  1. /*
  2.  
  3.     This file is a part of the GLAMMAR source distribution 
  4.     and therefore subjected to the copy notice below. 
  5.     
  6.     Copyright (C) 1989,1990  Eric Voss, ericv@cs.kun.nl 
  7.  
  8.     This program is free software; you can redistribute it and/or modify
  9.     it under the terms of the GNU General Public License as published by
  10.     the Free Software Foundation version 1
  11.  
  12.     This program is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.  
  17.     You should have received a copy of the GNU General Public License
  18.     along with this program; if not, write to the Free Software
  19.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. */
  21. #include "ge1.h"
  22. #ifdef DEVALAFFIX
  23. int             devalaffix(A, B)
  24. register AFFIX A, B;
  25. {
  26.   register char  *rc = c;
  27.   if (((A->r) == nil) && ((A->l) == nil))
  28.     rc = (A->t);
  29.   else {
  30.     sprinta(A);
  31.     *c++ = '\0';
  32.   }
  33.   if (c > cstore_top ) cstore_overflow();
  34.   B -> t =  rc;
  35.   B -> r =  nil;
  36.   B -> l =  nil;
  37.   return true;
  38. }
  39. #endif
  40.  
  41. #ifdef UEVALAFFIX
  42. void uevalaffix() 
  43. { 
  44.    register cont *rq = q;
  45. register AFFIX A_1 = rq->a;
  46. register AFFIX A_0 = (rq -1)->a;
  47.    char *rc = c;
  48.    if ( devalaffix (A_0, A_1)) {
  49.       q = rq -3;
  50.       (*(rq -2)->q)(); 
  51.       rq = q +2;
  52.    }
  53.   c = rc;
  54.    (rq -1)->a = A_0;
  55.    rq->a = A_1;
  56.    (rq + 1)->q = uevalaffix; 
  57.    q = rq + 1; 
  58. }
  59. #endif
  60.  
  61. #ifdef UFAIL
  62. void ufail() {             /* fail */
  63.   (++q)->q = ufail;
  64. }
  65.  
  66. #endif
  67.  
  68. #ifdef DFAIL
  69. int dfail() {
  70.   return false;
  71. }
  72. #endif
  73.  
  74. #ifdef USETEXITCODE
  75. void usetexitcode() {             /* set exit code */
  76.   exit_code = 2;
  77.   CONTINUE; 
  78.   (++q)->q = usetexitcode;
  79. }
  80. #endif
  81.  
  82. #ifdef DSETEXITCODE
  83. int dsetexitcode() {
  84.   exit_code = 2;
  85.   return true;
  86. }
  87. #endif
  88.  
  89. #ifdef DGETENV
  90. char * getenv();
  91. int             dgetenv(A, B)
  92. register AFFIX A, B;
  93. {
  94.   register char  *rc = c;
  95.   if (((A->r) == nil) && ((A->l) == nil))
  96.     rc = (A->t);
  97.   else {
  98.     sprinta(A);
  99.     *c++ = '\0';
  100.   }
  101.   if (c > cstore_top ) cstore_overflow();
  102.   B -> t =  getenv(rc);
  103.   if (!B ->t)  return false;
  104.   B -> r =  nil;
  105.   B -> l =  nil;
  106.   return true;
  107. }
  108. #endif
  109.  
  110. #ifdef UGETENV
  111. void ugetenv() 
  112. { 
  113.    register cont *rq = q;
  114. register AFFIX A_1 = rq->a;
  115. register AFFIX A_0 = (rq -1)->a;
  116.    char *rc = c;
  117.    if ( dgetenv (A_0, A_1)) {
  118.       q = rq -3;
  119.       (*(rq -2)->q)(); 
  120.       rq = q +2;
  121.    }
  122.    c = rc;
  123.    (rq -1)->a = A_0;
  124.    rq->a = A_1;
  125.    (rq + 1)->q = ugetenv; 
  126.    q = rq + 1; 
  127. }
  128. #endif
  129.  
  130. #ifdef DERRORMESSAGE  
  131. int x_errline(b,e)
  132. char *b,*e;
  133. {
  134.    if (b> e) {
  135.       *c++ = '\n';
  136.       return;
  137.    }
  138.    if (e > (b+75) ) {
  139.       b = e -75;
  140.       *c++ = '@';
  141.    }
  142.    while (b<=e)
  143.       *c++ = *b++;
  144. }
  145.  
  146. int x_underline(b,e)
  147. char *b,*e;
  148. {
  149.    if (b> e) {
  150.       *c++ = '\n';
  151.       return;
  152.    }
  153.    if (e> b+75) 
  154.       b = e -76;
  155.     for (; b <= e; b++) {
  156.        if (b == mip) {
  157.         int o = *mip;
  158.         o &= 255;
  159.         sprintf(c,"^(%o)\n",o);
  160.         while (*++c);
  161.         break;
  162.        }
  163.        else if (*b == '\t')
  164.         *c++ = '\t';
  165.        else 
  166.         *c++ = '-';
  167.     }
  168. }
  169.           
  170. int x_errmsg()
  171. {
  172.     char *beginmsg,*endmsg,*count;
  173.     int linenumber = 1, cc_error = false;
  174.  
  175.  
  176.     if (*mip == '\0') {
  177.         sprintf(c, "*** Context error, after parsing");
  178.         while (*++c);
  179.                 cc_error = true;
  180.     }
  181.         else {
  182.     /* say line number */
  183.     linenumber = set_ip_start_num;
  184.     for (count = set_ip_start_pos; count < mip;)
  185.         if (*count++ == '\n')
  186.             linenumber += 1;
  187.     if (*count == '\n')
  188.         linenumber += 1;
  189.     sprintf(c, "*** line %d", linenumber);
  190.     while (*++c);
  191.         }
  192.  
  193.     /* say file */
  194.  
  195.     if (*current_file_name != '\0')  {
  196.         sprintf (c,", file: %s", current_file_name);
  197.         while (*++c);
  198.     }
  199.  
  200.     if (rmax >0 ) {
  201.         sprintf(c, ", while parsing \"%s\"",error_msg);
  202.         while (*++c);
  203.     }
  204.         
  205.  
  206.  
  207.  
  208.         if (!cc_error) {
  209.            *c++ = ':';
  210.  
  211.         
  212.        for (beginmsg = mip; *beginmsg != '\n'; beginmsg -= 1) ;
  213.        /* print  x_errline */
  214.        endmsg = mip;
  215.        for (endmsg = mip; *endmsg != '\n';endmsg +=1) ;
  216.        x_errline (beginmsg,endmsg);
  217.        x_underline (beginmsg+1,endmsg);
  218.         } else {
  219.            *c++ = '.';
  220.            *c++ = '\n';
  221.         }
  222.     *c++ = '\0';
  223.     return true;
  224. }
  225.  
  226. int derrormessage(A_0)              /* newname */
  227. register AFFIX A_0;
  228. {
  229.     int             lt = (int) c, lta = (int) 'A';
  230.     A_0->t = c;
  231.     A_0->l = nil;
  232.     A_0->r = nil;
  233.         emsg_count += 1;
  234.     x_errmsg();
  235. }
  236. #endif
  237.  
  238.  
  239. #ifdef UERRORMESSAGE 
  240. void uerrormessage ()
  241. {
  242.     register cont *rq = q;
  243.     register affix *A_0 = rq->a;
  244.     char *rc = c;
  245.     if ( derrormessage (A_0)) {
  246.         q = rq -2;
  247.         (*(rq -1)->q)();
  248.         rq = q +1;
  249.                 emsg_count -= 1;
  250.     }
  251.     rq->a = A_0;
  252.     (rq + 1)->q = uerrormessage;
  253.     q = rq + 1;
  254.     c = rc;
  255.     if (rc > cstore_top ) cstore_overflow();
  256. }
  257. #endif
  258.